home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / MOONDOG.SDA / MOONDOG BOOT (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  32 lines
  1. 10 REM    MOONDOG BOOT--JCHILTY--8/86
  2. 11 POKE53281,0:POKE53280,0:PRINT"[147]LOADING MOONDOG...."
  3. 12 FORX=49154TO49320:READA:POKEX,A:NEXT
  4. 13 POKE147,0:SYS57812"MOONTITLE",8,1:SYS62631:SYS49154
  5. 14 FORX=54272TO54295:POKEX,0:NEXT:POKE54296,15
  6. 16 A=15:D=107:POKE54277,A:POKE54284,A:POKE54291,A:POKE54278,D:POKE54285,D
  7. 17 POKE54292,D:POKE54286,30:POKE54287,60:POKE54276,33:POKE54283,23
  8. 18 POKE54290,23:FORF1=40TO80STEP1:POKE54273,F1
  9. 19 FORF2=60TO31STEP-5:POKE54280,F2:NEXTF2:NEXTF1
  10. 20 POKE54276,32:POKE54283,32:POKE54290,32:FORT=0TO1000:NEXT
  11. 21 FORX=54272TO54295:POKEX,0:NEXT:POKE54296,15
  12. 22 POKE54284,160:POKE54285,252:POKE54280,80:POKE54279,40:POKE54283,129
  13. 23 FORT=0TO12000:NEXT:POKE54283,128
  14. 24 POKE53265,PEEK(53265)AND223:POKE53272,(PEEK(53272)AND240)OR4
  15. 25 POKE53270,PEEK(53270)AND239:POKE53281,0:POKE646,0
  16. 26 PRINTCHR$(147):PRINT:PRINT
  17. 27 PRINT"LOAD"CHR$(34)"MOONDOG"CHR$(34)",8":PRINT:PRINT:PRINT:PRINT
  18. 28 PRINT"RUN":PRINT"LOADING MODULES....[144]":PRINTCHR$(19):POKE198,2
  19. 29 POKE631,13:POKE632,13
  20. 30 END
  21. 100 DATA 173,17,208,41,239,9,32,141,17,208,173,22,208,41,223,9
  22. 101 DATA 16,141,22,208,173,24,208,41,240,9,8,141,24,208,76,43
  23. 102 DATA 192,173,17,208,41,239,141,17,208,162,127,160,64,134,252,132
  24. 103 DATA 251,162,4,160,0,134,254,132,253,162,131,160,39,32,127,192
  25. 104 DATA 162,131,160,40,134,252,132,251,162,216,160,0,134,254,132,253
  26. 105 DATA 162,135,160,15,32,127,192,173,16,135,141,33,208,162,96,160
  27. 106 DATA 0,134,252,132,251,162,32,160,0,134,254,132,253,162,127,160
  28. 107 DATA 63,32,127,192,173,17,208,9,16,141,17,208,96,142,1,192
  29. 108 DATA 140,0,192,160,0,177,251,145,253,165,252,205,1,192,208,8
  30. 109 DATA 165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253
  31. 110 DATA 208,227,230,254,76,135,192
  32.